10 REM PIC
20 GOSUB180:GOTO60
30 A=A+V:IFA<1024THENA=A+1001
40 IFA>2023THENA=A-1001
50 POKEA,K:POKEA+D,C:RETURN
60 J=J+2:V=0-40:GOSUB30
70 V=0-1:FORI=1TOJ-1STEP1:GOSUB30:NEXT
80 V=40:FORI=1TOJ:GOSUB30:NEXT
90 V=1:FORI=1TOJ:GOSUB30:NEXT
100 V=0-40:FORI=1TOJ:GOSUB30:NEXT
110 R=PEEK(56324)+R+A
120 IFR>32767THENR=R-32767
130 P=RAND7:K=PEEK(828+P)
140 C=RAND15:IFC=0THENC=7
150 IFJ>7THENA=A-199:J=0-1
170 GOTO60
180 POKE53280,0:POKE53281,0:K=160
190 PRINTCHR$(147);:A=1524:D=54272:C=1
200 POKE828,230:POKE829,102:POKE830,94
210 POKE831,95:POKE832,222:POKE833,233
220 POKE834,105:POKE835,160:J=0-1
230 PRINTCHR$(14);:RETURN